*Replication data for "New Frame for an Old Issue: How Organizations View Frame Choice, Embedding and Efficacy About Child, Early, and Forced Marriage"
*please reach out to murdie@uga.edu with any questions

cd "C:\Users\murdie\Dropbox\AJWS\ISA 2022\Journal of Human Rights Conditional Acceptance"
use JHRdataset.dta, replace


*making the latent variables

polychoric Development Feminist HumanRights ChildProtection Religious Legal ChildrensRights WomensRightsEmpowerment AgeofMarriage GirlsRights RootCauses GenderBasedViolence HarmfulPractices GirlsAgency
matrix R=r(R)
factormat R, n(1118) pf factors(2)
rotate, varimax horst blanks(.5)
loadingplot
scoreplot
screeplot, mean
*predict traditionallatentfactor feministlatentfactor

*lab var feministlatentfactor "Underlying Feminist Frame"
*lab var traditionallatentfactor  "Underlying Traditional Frame"



factor DevelopmentRank FeministRank HumanRightsRank ChildProtectionRank ReligiousRank LegalRank ChildrensRightsRank WomensRightsEmpowermentRank AgeofMarriageRank GirlsRightsRank RootCausesRank GenderBasedViolenceRank HarmfulPracticesRank GirlsAgencyRank, pf factors(2)
rotate, varimax horst blanks(.5)
loadingplot
scoreplot
screeplot, mean
*predict traditionallatentfactorrank feministlatentfactorrank
*lab var feministlatentfactorrank "Underlying Feminist Frame - Ranking"
*lab var traditionallatentfactorrank  "Underlying Traditional Frame- Ranking"


*summary stats
	asdoc tab framechange , replace
	asdoc tab framesuccess , append
	asdoc tab framework , append
	asdoc tab QY4_1 , append
	asdoc tab QY4_2, append
	asdoc tab QY4_3, append
	asdoc tab QY4_6, append
	asdoc tab QY4_7, append
	asdoc tab QY4_9, append
	asdoc tab QY4_10, append
	asdoc tab Q10, append
	asdoc tab CEFMmeetings, append

	
asdoc sum feministlatentfactor  traditionallatentfactor feministlatentfactorrank   traditionallatentfactorrank Feminist GirlsAgency ChildProtection AgeofMarriage ChildrensRights Legal QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram framechange framework framesuccess , append

*in line with what R2 said, add what the respondents said influenced on every single question


*frame change
probit framechange QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram ,  robust cluster(ccode)
outreg2 using Table1, replace  label word  
margins, dydx(*) atmeans



*Table 2 - predicting frame embedding of the new feminist frame

reg feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using Table1, append label word  

reg feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings    QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using Table2, replace label word  


reg   traditionallatentfactor feministlatentfactor  QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using Table1, append label word  

reg  traditionallatentfactorrank feministlatentfactorrank   QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings    QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using Table2, append label word  




*Frame Working 
probit framework feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange , robust  cluster(ccode)
outreg2 using Table1, append label word  
margins, atmeans at(feministlatentfactor =(-.62(.05)1.5)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framework1, replace

probit framework feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  , robust  cluster(ccode)
outreg2 using Table2, append label word  
margins, atmeans at(feministlatentfactorrank =(-1.055(.05)2.78)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framework2, replace


*Success 
probit framesuccess feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange , robust  cluster(ccode)
outreg2 using Table1, append label word 
margins, atmeans at(feministlatentfactor =(-.62(.05)1.5)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framesuccess1, replace


probit framesuccess feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange, robust  cluster(ccode)
outreg2 using Table2, append label word  
margins, atmeans at(feministlatentfactorrank =(-1.055(.05)2.78)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framesuccess2, replace

*now try interactions
*Frame Working 
probit framework c.feministlatentfactor##c.traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10  CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  , robust  cluster(ccode)
outreg2 using Table1, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactor=(-.40(.1)1.29)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save frameworkinteraction1, replace

probit framework c.feministlatentfactorrank##c.traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  , robust  cluster(ccode)
outreg2 using Table2, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactorrank=(-1.472(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save frameworkinteraction2, replace

*Success 
probit framesuccess c.feministlatentfactor##c.traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff framechange PrimaryServiceProgram    , robust  cluster(ccode)
outreg2 using Table1, append label word   
margins, dydx(feministlatentfactor) at(traditionallatentfactor=(-.40(.1)1.29)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framesuccessinteraction1, replace

probit framesuccess c.feministlatentfactorrank##c.traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  , robust  cluster(ccode)
margins, dydx(feministlatentfactorr) at(traditionallatentfactorr=(-1.48(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) ylin(0)
outreg2 using Table2, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactorrank=(-1.472(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save framesuccessinteraction2, replace



*Auxiliary tests - no multiple organizations 
*frame change
probit framechange QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram if (multipleorg!=1 & multipleorg!=2),  robust cluster(ccode)
outreg2 using TableNoM1, replace  label word  


*TableNoM 2 - predicting frame embedding of the new feminist frame

reg feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  if (multipleorg!=1 & multipleorg!=2), robust cluster(ccode)
outreg2 using TableNoM1, append label word  

reg feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings    QY1_1 lnstaff PrimaryServiceProgram  framechange  if (multipleorg!=1 & multipleorg!=2), robust cluster(ccode)
outreg2 using TableNoM2, replace label word  


reg   traditionallatentfactor feministlatentfactor  QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  if (multipleorg!=1 & multipleorg!=2), robust cluster(ccode)
outreg2 using TableNoM1, append label word  

reg  traditionallatentfactorrank feministlatentfactorrank   QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings    QY1_1 lnstaff PrimaryServiceProgram  framechange  if (multipleorg!=1 & multipleorg!=2), robust cluster(ccode)
outreg2 using TableNoM2, append label word  




*Frame Working 
probit framework feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM1, append label word  
margins, atmeans at(feministlatentfactor =(-.62(.05)1.5)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframework1, replace

probit framework feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM2, append label word  
margins, atmeans at(feministlatentfactorrank =(-1.055(.05)2.78)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframework2, replace


*Success 
probit framesuccess feministlatentfactor   traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM1, append label word 
margins, atmeans at(feministlatentfactor =(-.62(.05)1.5)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframesuccess1, replace


probit framesuccess feministlatentfactorrank   traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM2, append label word  
margins, atmeans at(feministlatentfactorrank =(-1.055(.05)2.78)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist feministlatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframesuccess2, replace

*now try interactions
*Frame Working 
probit framework c.feministlatentfactor##c.traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10  CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM1, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactor=(-.40(.1)1.29)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframeworkinteraction1, replace

probit framework c.feministlatentfactorrank##c.traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  if (multipleorg!=1 & multipleorg!=2) , robust  cluster(ccode)
outreg2 using TableNoM2, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactorrank=(-1.472(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframeworkinteraction2, replace

*Success 
probit framesuccess c.feministlatentfactor##c.traditionallatentfactor QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff framechange PrimaryServiceProgram    if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
outreg2 using TableNoM1, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactor=(-.40(.1)1.29)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactor if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframesuccessinteraction1, replace

probit framesuccess c.feministlatentfactorrank##c.traditionallatentfactorrank QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram framechange  if (multipleorg!=1 & multipleorg!=2), robust  cluster(ccode)
margins, dydx(feministlatentfactorr) at(traditionallatentfactorr=(-1.48(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) ylin(0)
outreg2 using TableNoM2, append label word  
margins, dydx(feministlatentfactor) at(traditionallatentfactorrank=(-1.472(.1)1.62)) vsquish
marginsplot, recast(line) recastci(rarea) addplot(hist traditionallatentfactorrank if e(sample), freq yaxis(2) yscale(alt axis(2)))
graph save NoMframesuccessinteraction2, replace



*Auxilary - did you pick feminist , etc - dichotomous: 


*dichotmousTable 2 - predicting frame embedding of the new feminist frame

probit Feminist QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, replace label word  


probit GirlsAgency QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, append label word  

probit ChildProtection QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, append label word  

probit AgeofMarriage QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, append label word  

probit ChildrensRights QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, append label word  


probit Legal QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings  Q2_4   QY1_1 lnstaff PrimaryServiceProgram  framechange  , robust cluster(ccode)
outreg2 using dichotmousTable1, append label word  

*Frame Working 
probit framework Feminist GirlsAgency ChildProtection AgeofMarriage ChildrensRights Legal QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange , robust  cluster(ccode)
outreg2 using dichotmousTable1, append label word  


*Success 
probit framesuccess Feminist GirlsAgency ChildProtection AgeofMarriage ChildrensRights Legal  QY4_1 QY4_2 QY4_3 QY4_5 QY4_6 QY4_7 QY4_9 QY4_10   CEFMmeetings Q2_4  QY1_1 lnstaff PrimaryServiceProgram  framechange , robust  cluster(ccode)
outreg2 using dichotmousTable1, append label word 


